/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / N-P / OmniScript 2.0.1.sit / OmniScript 2.0.1 / Examples / Finder Examples / Folder Organizer

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 46 6f 6c 64 65 72 | 20 4f 72 67 61 6e 69 7a |..Folder| Organiz|
|00000010| 65 72 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |er......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 78 50 | 72 00 00 00 00 00 00 00 |.TEXTExP|r.......|
|00000050| 00 00 00 00 00 07 de 00 | 00 01 5c a8 ce 2d c4 a8 |........|..\..-..|
|00000060| ce 2d c4 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.-......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c9 de 00 00 |........|........|
|00000080| 2a 0d 2a 20 54 68 69 73 | 20 73 63 72 69 70 74 20 |*.* This| script |
|00000090| 6f 72 67 61 6e 69 7a 65 | 73 20 61 20 66 6f 6c 64 |organize|s a fold|
|000000a0| 65 72 20 69 6e 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |er in th|e follow|
|000000b0| 69 6e 67 20 77 61 79 0d | 2a 09 09 74 68 65 20 76 |ing way.|*..the v|
|000000c0| 69 65 77 20 69 73 20 73 | 6d 61 6c 6c 20 69 63 6f |iew is s|mall ico|
|000000d0| 6e 0d 2a 09 09 74 68 65 | 20 69 74 65 6d 73 20 61 |n.*..the| items a|
|000000e0| 72 65 20 6f 72 67 61 6e | 69 7a 65 64 20 69 6e 74 |re organ|ized int|
|000000f0| 6f 20 66 6f 75 72 20 64 | 69 66 66 65 72 65 6e 74 |o four d|ifferent|
|00000100| 20 67 72 6f 75 70 73 0d | 2a 09 09 09 31 2e 20 41 | groups.|*...1. A|
|00000110| 70 70 6c 69 63 61 74 69 | 6f 6e 73 20 61 6e 64 20 |pplicati|ons and |
|00000120| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 61 6c 69 61 |applicat|ion alia|
|00000130| 73 65 73 0d 2a 09 09 09 | 32 2e 09 46 69 6c 65 73 |ses.*...|2..Files|
|00000140| 20 61 6e 64 20 74 68 65 | 69 72 20 61 6c 69 61 73 | and the|ir alias|
|00000150| 65 73 0d 2a 09 09 09 33 | 2e 09 46 6f 6c 64 65 72 |es.*...3|..Folder|
|00000160| 73 20 61 6e 64 20 74 68 | 65 69 72 20 61 6c 69 61 |s and th|eir alia|
|00000170| 73 65 73 0d 2a 09 09 09 | 34 2e 09 56 6f 6c 75 6d |ses.*...|4..Volum|
|00000180| 65 20 61 6c 69 61 73 65 | 73 0d 2a 09 09 74 68 65 |e aliase|s.*..the|
|00000190| 20 64 69 66 66 65 72 65 | 6e 74 20 67 72 6f 75 70 | differe|nt group|
|000001a0| 73 20 61 72 65 20 64 69 | 73 70 6c 61 79 65 64 20 |s are di|splayed |
|000001b0| 61 62 6f 76 65 20 65 61 | 63 68 20 6f 74 68 65 72 |above ea|ch other|
|000001c0| 0d 2a 09 09 65 61 63 68 | 20 67 72 6f 75 70 20 68 |.*..each| group h|
|000001d0| 61 73 20 74 68 72 65 65 | 20 63 6f 6c 75 6d 6e 73 |as three| columns|
|000001e0| 0d 2a 0d 69 66 20 23 73 | 79 73 20 3c 20 27 30 37 |.*.if #s|ys < '07|
|000001f0| 30 30 27 0d 09 64 69 73 | 70 6c 61 79 20 27 54 68 |00'..dis|play 'Th|
|00000200| 69 73 20 73 63 72 69 70 | 74 20 72 65 71 75 69 72 |is scrip|t requir|
|00000210| 65 73 20 53 79 73 74 65 | 6d 20 37 27 0d 09 65 78 |es Syste|m 7'..ex|
|00000220| 69 74 0d 65 6e 64 0d 2a | 0d 2a 20 53 65 6c 65 63 |it.end.*|.* Selec|
|00000230| 74 20 74 68 65 20 66 6f | 6c 64 65 72 0d 2a 0d 64 |t the fo|lder.*.d|
|00000240| 69 72 0d 74 65 73 74 20 | 28 23 72 65 74 29 20 65 |ir.test |(#ret) e|
|00000250| 78 69 74 0d 2a 0d 2a 20 | 43 72 65 61 74 65 20 61 |xit.*.* |Create a|
|00000260| 6e 20 61 6c 69 61 73 20 | 66 6f 72 20 74 68 65 20 |n alias |for the |
|00000270| 66 6f 6c 64 65 72 0d 2a | 0d 62 20 3d 20 31 0d 61 |folder.*|.b = 1.a|
|00000280| 6c 69 61 73 20 62 5b 30 | 5d 20 3d 2c 0d 2a 0d 2a |lias b[0|] =,.*.*|
|00000290| 09 53 65 74 20 74 68 65 | 20 76 69 65 77 20 66 6f |.Set the| view fo|
|000002a0| 72 20 74 68 65 20 77 69 | 6e 64 6f 77 0d 2a 09 43 |r the wi|ndow.*.C|
|000002b0| 6c 6f 73 65 20 74 68 65 | 20 46 69 6e 64 65 72 20 |lose the| Finder |
|000002c0| 77 69 6e 64 6f 77 20 61 | 6e 64 20 77 61 69 74 20 |window a|nd wait |
|000002d0| 61 20 62 69 74 20 66 6f | 72 20 69 74 20 74 6f 20 |a bit fo|r it to |
|000002e0| 73 61 76 65 20 72 65 73 | 75 6c 74 73 0d 2a 09 54 |save res|ults.*.T|
|000002f0| 68 69 73 20 69 73 20 74 | 6f 20 65 6e 73 75 72 65 |his is t|o ensure|
|00000300| 20 74 68 61 74 20 74 68 | 65 20 76 6f 6c 75 6d 65 | that th|e volume|
|00000310| 20 69 6e 66 6f 20 69 73 | 20 74 68 65 20 73 61 6d | info is| the sam|
|00000320| 65 20 61 73 20 74 68 65 | 20 46 69 6e 64 65 72 20 |e as the| Finder |
|00000330| 69 6e 66 6f 0d 2a 0d 66 | 69 6e 64 65 72 20 76 69 |info.*.f|inder vi|
|00000340| 65 77 2c 62 5b 30 5d 2c | 73 6d 61 6c 6c 0d 66 69 |ew,b[0],|small.fi|
|00000350| 6e 64 65 72 20 63 6c 6f | 73 65 2c 62 5b 30 5d 0d |nder clo|se,b[0].|
|00000360| 77 61 69 74 20 6e 6f 6e | 65 20 35 0d 2a 0d 2a 20 |wait non|e 5.*.* |
|00000370| 4e 6f 77 20 73 63 61 6e | 20 74 68 65 20 66 69 6c |Now scan| the fil|
|00000380| 65 73 20 69 6e 20 74 68 | 69 73 20 66 6f 6c 64 65 |es in th|is folde|
|00000390| 72 20 61 6e 64 20 62 75 | 69 6c 64 20 74 68 65 20 |r and bu|ild the |
|000003a0| 6c 69 73 74 0d 2a 0d 69 | 20 3d 20 30 0d 74 6f 74 |list.*.i| = 0.tot|
|000003b0| 61 6c 20 3d 20 30 0d 63 | 6f 75 6e 74 5b 31 5d 20 |al = 0.c|ount[1] |
|000003c0| 3d 20 30 0d 63 6f 75 6e | 74 5b 32 5d 20 3d 20 30 |= 0.coun|t[2] = 0|
|000003d0| 0d 63 6f 75 6e 74 5b 33 | 5d 20 3d 20 30 0d 63 6f |.count[3|] = 0.co|
|000003e0| 75 6e 74 5b 34 5d 20 3d | 20 30 0d 64 6f 0d 09 69 |unt[4] =| 0.do..i|
|000003f0| 6e 63 20 69 0d 09 66 69 | 6c 65 20 61 20 3d 20 69 |nc i..fi|le a = i|
|00000400| 0d 09 74 65 73 74 20 28 | 23 72 65 74 29 20 71 75 |..test (|#ret) qu|
|00000410| 69 74 0d 09 69 66 20 28 | 23 66 69 6c 65 28 69 6e |it..if (|#file(in|
|00000420| 76 29 29 20 0d 09 09 62 | 65 65 70 0d 09 09 64 69 |v)) ...b|eep...di|
|00000430| 73 70 6c 61 79 20 27 69 | 6e 76 69 73 69 62 6c 65 |splay 'i|nvisible|
|00000440| 3a 27 61 0d 09 09 63 79 | 63 6c 65 0d 09 65 6e 64 |:'a...cy|cle..end|
|00000450| 0d 09 69 66 20 28 23 66 | 69 6c 65 28 6c 6f 63 6b |..if (#f|ile(lock|
|00000460| 65 64 29 29 0d 09 09 61 | 63 63 65 70 74 20 74 74 |ed))...a|ccept tt|
|00000470| 2c 27 55 6e 6c 6f 63 6b | 20 27 61 27 3f 27 0d 09 |,'Unlock| 'a'?'..|
|00000480| 09 69 66 20 23 72 65 74 | 20 3d 20 30 0d 09 09 09 |.if #ret| = 0....|
|00000490| 63 68 61 6e 67 65 20 6c | 6f 63 6b 65 64 3d 30 0d |change l|ocked=0.|
|000004a0| 09 09 09 69 6e 66 6f 0d | 09 09 09 6c 6f 63 6b 20 |...info.|...lock |
|000004b0| 3d 20 31 0d 09 09 65 6c | 73 65 0d 09 09 09 64 69 |= 1...el|se....di|
|000004c0| 73 70 6c 61 79 20 27 6c | 6f 63 6b 65 64 3a 27 61 |splay 'l|ocked:'a|
|000004d0| 0d 09 09 09 63 79 63 6c | 65 0d 09 09 65 6e 64 0d |....cycl|e...end.|
|000004e0| 09 65 6c 73 65 0d 09 09 | 6c 6f 63 6b 20 3d 20 30 |.else...|lock = 0|
|000004f0| 0d 09 65 6e 64 0d 09 69 | 66 20 23 66 69 6c 65 28 |..end..i|f #file(|
|00000500| 74 79 70 65 29 20 3d 20 | 27 41 50 50 4c 27 20 7c |type) = |'APPL' ||
|00000510| 20 23 66 69 6c 65 28 74 | 79 70 65 29 20 3d 20 27 | #file(t|ype) = '|
|00000520| 61 64 72 70 27 0d 09 09 | 78 20 3d 20 31 0d 09 65 |adrp'...|x = 1..e|
|00000530| 6c 73 65 20 69 66 20 23 | 66 69 6c 65 28 74 79 70 |lse if #|file(typ|
|00000540| 65 29 20 3d 20 27 73 72 | 76 72 27 20 7c 20 23 66 |e) = 'sr|vr' | #f|
|00000550| 69 6c 65 28 74 79 70 65 | 29 20 3d 20 27 66 6c 70 |ile(type|) = 'flp|
|00000560| 79 27 20 7c 20 23 66 69 | 6c 65 28 74 79 70 65 29 |y' | #fi|le(type)|
|00000570| 20 3d 20 27 68 64 73 6b | 27 20 0d 09 09 78 20 3d | = 'hdsk|' ...x =|
|00000580| 20 34 0d 09 65 6c 73 65 | 20 69 66 20 23 66 69 6c | 4..else| if #fil|
|00000590| 65 28 74 79 70 65 29 20 | 3d 20 27 44 49 52 20 27 |e(type) |= 'DIR '|
|000005a0| 20 7c 20 23 66 69 6c 65 | 28 63 72 65 29 20 20 3d | | #file|(cre)  =|
|000005b0| 20 27 4d 41 43 53 27 0d | 09 09 78 20 3d 20 33 0d | 'MACS'.|..x = 3.|
|000005c0| 09 65 6c 73 65 0d 09 09 | 78 20 3d 20 32 0d 09 65 |.else...|x = 2..e|
|000005d0| 6e 64 0d 09 69 6e 63 20 | 63 6f 75 6e 74 5b 78 5d |nd..inc |count[x]|
|000005e0| 0d 09 69 6e 63 20 74 6f | 74 61 6c 0d 09 6e 75 6d |..inc to|tal..num|
|000005f0| 5b 78 5d 5b 63 6f 75 6e | 74 5b 78 5d 5d 20 3d 20 |[x][coun|t[x]] = |
|00000600| 69 0d 09 6c 6f 63 6b 69 | 74 5b 78 5d 5b 63 6f 75 |i..locki|t[x][cou|
|00000610| 6e 74 5b 78 5d 5d 20 3d | 20 6c 6f 63 6b 0d 09 76 |nt[x]] =| lock..v|
|00000620| 65 72 5b 78 5d 5b 63 6f | 75 6e 74 5b 78 5d 5d 20 |er[x][co|unt[x]] |
|00000630| 3d 20 23 66 69 6c 65 28 | 76 65 72 29 0d 09 68 6f |= #file(|ver)..ho|
|00000640| 72 5b 78 5d 5b 63 6f 75 | 6e 74 5b 78 5d 5d 20 3d |r[x][cou|nt[x]] =|
|00000650| 20 23 66 69 6c 65 28 68 | 6f 72 29 0d 09 6e 61 6d | #file(h|or)..nam|
|00000660| 65 5b 78 5d 5b 63 6f 75 | 6e 74 5b 78 5d 5d 20 3d |e[x][cou|nt[x]] =|
|00000670| 20 61 0d 09 64 69 73 70 | 6c 61 79 20 23 66 28 74 | a..disp|lay #f(t|
|00000680| 6f 74 61 6c 2c 33 2c 30 | 29 27 3a 27 23 66 69 6c |otal,3,0|)':'#fil|
|00000690| 65 28 74 79 70 65 29 27 | 3a 27 23 66 69 6c 65 28 |e(type)'|:'#file(|
|000006a0| 63 72 65 29 27 3a 27 61 | 0d 65 6e 64 0d 2a 0d 2a |cre)':'a|.end.*.*|
|000006b0| 09 4f 70 65 6e 20 74 68 | 65 20 46 69 6e 64 65 72 |.Open th|e Finder|
|000006c0| 20 77 69 6e 64 6f 77 0d | 2a 0d 66 72 6f 6e 74 20 | window.|*.front |
|000006d0| 73 69 67 6e 3d 27 4d 41 | 43 53 27 0d 66 69 6e 64 |sign='MA|CS'.find|
|000006e0| 65 72 20 73 68 6f 77 2c | 62 5b 30 5d 0d 2a 0d 76 |er show,|b[0].*.v|
|000006f0| 20 3d 20 2d 31 36 0d 62 | 6c 6f 63 6b 20 3d 20 30 | = -16.b|lock = 0|
|00000700| 0d 64 6f 20 77 68 69 6c | 65 20 62 6c 6f 63 6b 20 |.do whil|e block |
|00000710| 3c 20 34 0d 09 69 6e 63 | 20 62 6c 6f 63 6b 0d 09 |< 4..inc| block..|
|00000720| 74 65 73 74 20 28 63 6f | 75 6e 74 5b 62 6c 6f 63 |test (co|unt[bloc|
|00000730| 6b 5d 20 3d 20 30 29 20 | 63 79 63 6c 65 0d 09 76 |k] = 0) |cycle..v|
|00000740| 20 3d 20 76 20 2b 20 32 | 30 0d 09 72 6f 77 73 20 | = v + 2|0..rows |
|00000750| 3d 20 28 63 6f 75 6e 74 | 5b 62 6c 6f 63 6b 5d 20 |= (count|[block] |
|00000760| 2b 20 32 29 2f 33 0d 09 | 6a 20 3d 20 30 0d 09 64 |+ 2)/3..|j = 0..d|
|00000770| 6f 20 77 68 69 6c 65 20 | 6a 20 3c 20 63 6f 75 6e |o while |j < coun|
|00000780| 74 5b 62 6c 6f 63 6b 5d | 0d 09 09 74 76 20 3d 20 |t[block]|...tv = |
|00000790| 76 20 2b 20 32 30 2a 28 | 6a 25 72 6f 77 73 29 0d |v + 20*(|j%rows).|
|000007a0| 09 09 68 20 3d 20 31 32 | 35 2a 28 6a 2f 72 6f 77 |..h = 12|5*(j/row|
|000007b0| 73 29 0d 09 09 69 6e 63 | 20 6a 0d 09 09 61 6c 69 |s)...inc| j...ali|
|000007c0| 61 73 20 62 5b 31 5d 20 | 3d 20 2c 6e 61 6d 65 5b |as b[1] |= ,name[|
|000007d0| 62 6c 6f 63 6b 5d 5b 6a | 5d 0d 09 09 66 69 6e 64 |block][j|]...find|
|000007e0| 65 72 20 6d 6f 76 65 2c | 62 2c 76 65 72 3d 28 74 |er move,|b,ver=(t|
|000007f0| 76 2d 76 65 72 5b 62 6c | 6f 63 6b 5d 5b 6a 5d 29 |v-ver[bl|ock][j])|
|00000800| 2c 68 6f 72 3d 28 68 2d | 68 6f 72 5b 62 6c 6f 63 |,hor=(h-|hor[bloc|
|00000810| 6b 5d 5b 6a 5d 29 0d 09 | 65 6e 64 0d 09 76 20 3d |k][j])..|end..v =|
|00000820| 20 76 20 2b 20 32 30 2a | 72 6f 77 73 0d 65 6e 64 | v + 20*|rows.end|
|00000830| 0d 0d 66 69 6e 64 65 72 | 20 73 69 7a 65 77 69 6e |..finder| sizewin|
|00000840| 64 6f 77 2c 62 5b 30 5d | 2c 68 65 69 67 68 74 3d |dow,b[0]|,height=|
|00000850| 76 2b 33 35 2c 77 69 64 | 74 68 3d 33 39 35 00 00 |v+35,wid|th=395..|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000890| 03 20 17 72 ff b2 80 67 | 01 67 4a 7e 75 03 20 17 |. .r...g|.gJ~u. .|
|000008a0| 72 fe b2 80 67 01 67 3c | 52 7f 7e d1 4c 01 fa 80 |r...g.g<|R.~.L...|
|000008b0| 10 46 6f 6c 64 65 72 20 | 4f 72 67 61 6e 69 7a 65 |.Folder |Organize|
|000008c0| 72 6c 02 00 00 00 50 61 | 72 74 53 49 54 78 00 00 |rl....Pa|rtSITx..|
|000008d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 a9 80 1c 06 00 00 | 00 00 00 00 01 5c 42 10 |........|.....\B.|
|00000900| 86 17 27 44 48 6e ff 00 | 2f 0c 20 54 20 50 22 68 |..'DHn..|/. T P"h|
|00000910| 01 00 58 35 86 20 13 01 | 00 5c 35 3a 28 30 01 18 |..X5. ..|.\5:(0..|
|00000920| 0a 6d 73 02 10 80 fe f8 | 25 4b 60 26 8d 02 66 10 |.ms.....|%K`&..f.|
|00000930| 70 4c 3e 01 01 ba 8a 8d | 67 01 67 34 7d 02 22 0c |pL>.....|g.g4}.".|
|00000940| 66 16 56 01 72 48 c1 50 | 01 01 ba 67 de b4 01 4a |f.V.rH.P|...g...J|
|00000950| 81 ea 55 9d df 7f 49 14 | fe 42 20 80 60 02 70 00 |..U...I.|.B .`.p.|
|00000960| 01 28 4c 7f 02 20 ad fe | 46 8d 8c 5b 25 01 ff 5e |.(L.. ..|F..[%..^|
|00000970| 5c 01 07 18 26 55 7a 01 | ff 76 7a 01 ff 7a 76 01 |\...&Uz.|.vz..zv.|
|00000980| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000990| 00 04 00 06 00 03 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000009a0| 00 16 00 00 00 46 00 61 | 5c d8 07 5a 00 00 00 1c |.....F.a|\..Z....|
|000009b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000009c0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 61 62 b0 |........|.....ab.|
|000009d0| 03 ec ff ff 00 00 00 0e | 00 61 62 bc 00 00 00 00 |........|.ab.....|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+